perm filename ZLIDE.DAT[MUS,LCS] blob
sn#166843 filedate 1975-07-06 generic text, type T, neo UTF8
RCDFLG=-1;
P7←C ;<INITIALIZES P7 SO P3 FINDS THE RIGHT NOTE.
< ZLIDE.DAT -- RANDOM NUMBER= 1
PLAY;
GLISS 0.000 0.240 P7 2000.000 F10 F4 D 0.240 F5
;PRINT(P1);< GLISS 1
SEG(F5); 0 1 0.000 99.000 1.000 100.000
;PRINT(P1);< DUMMY 1
GLISS 0.240 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 2
SEG(F5); 0 1 0.000 95.733 1.000 100.000
;PRINT(P1);< DUMMY 2
GLISS 0.480 0.240 P7 2000.000 F11 F4 F 0.240 F5
;PRINT(P1);< GLISS 3
SEG(F5); 0 1 0.000 92.467 1.000 100.000
;PRINT(P1);< DUMMY 3
GLISS 0.720 0.240 P7 2000.000 F12 F4 G 0.240 F5
;PRINT(P1);< GLISS 4
SEG(F5); 0 1 0.000 89.200 1.000 100.000
;PRINT(P1);< DUMMY 4
GLISS 0.960 0.240 P7 2000.000 F10 F4 F 0.240 F5
;PRINT(P1);< GLISS 5
SEG(F5); 0 1 0.000 85.933 1.000 100.000
;PRINT(P1);< DUMMY 5
GLISS 1.200 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 6
SEG(F5); 0 1 0.000 82.667 1.000 100.000
;PRINT(P1);< DUMMY 6
GLISS 1.440 0.240 P7 2000.000 F11 F4 D 0.240 F5
;PRINT(P1);< GLISS 7
SEG(F5); 0 1 0.000 79.400 1.000 100.000
;PRINT(P1);< DUMMY 7
GLISS 1.680 0.240 P7 2000.000 F12 F4 C 0.240 F5
;PRINT(P1);< GLISS 8
SEG(F5); 0 1 0.000 76.133 1.000 100.000
;PRINT(P1);< DUMMY 8
GLISS 1.920 0.240 P7 2000.000 F10 F4 D 0.240 F5
;PRINT(P1);< GLISS 9
SEG(F5); 0 1 0.000 72.867 1.000 100.000
;PRINT(P1);< DUMMY 9
GLISS 2.160 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 10
SEG(F5); 0 1 0.000 69.600 1.000 100.000
;PRINT(P1);< DUMMY 10
GLISS 2.400 0.240 P7 2000.000 F11 F4 F 0.240 F5
;PRINT(P1);< GLISS 11
SEG(F5); 0 1 0.000 66.333 1.000 100.000
;PRINT(P1);< DUMMY 11
GLISS 2.640 0.240 P7 2000.000 F12 F4 G 0.240 F5
;PRINT(P1);< GLISS 12
SEG(F5); 0 1 0.000 63.067 1.000 100.000
;PRINT(P1);< DUMMY 12
GLISS 2.880 0.240 P7 2000.000 F10 F4 F 0.240 F5
;PRINT(P1);< GLISS 13
SEG(F5); 0 1 0.000 59.800 1.000 100.000
;PRINT(P1);< DUMMY 13
GLISS 3.120 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 14
SEG(F5); 0 1 0.000 56.533 1.000 100.000
;PRINT(P1);< DUMMY 14
GLISS 3.360 0.240 P7 2000.000 F11 F4 D 0.240 F5
;PRINT(P1);< GLISS 15
SEG(F5); 0 1 0.000 53.267 1.000 100.000
;PRINT(P1);< DUMMY 15
GLISS 3.600 0.240 P7 2000.000 F12 F4 C 0.240 F5
;PRINT(P1);< GLISS 16
SEG(F5); 0 1 0.000 50.000 1.000 100.000
;PRINT(P1);< DUMMY 16
GLISS 3.840 0.240 P7 2000.000 F10 F4 D 0.240 F5
;PRINT(P1);< GLISS 17
SEG(F5); 0 1 0.000 46.733 1.000 100.000
;PRINT(P1);< DUMMY 17
GLISS 4.080 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 18
SEG(F5); 0 1 0.000 43.467 1.000 100.000
;PRINT(P1);< DUMMY 18
GLISS 4.320 0.240 P7 2000.000 F11 F4 F 0.240 F5
;PRINT(P1);< GLISS 19
SEG(F5); 0 1 0.000 40.200 1.000 100.000
;PRINT(P1);< DUMMY 19
GLISS 4.560 0.240 P7 2000.000 F12 F4 G 0.240 F5
;PRINT(P1);< GLISS 20
SEG(F5); 0 1 0.000 36.933 1.000 100.000
;PRINT(P1);< DUMMY 20
GLISS 4.800 0.240 P7 2000.000 F10 F4 F 0.240 F5
;PRINT(P1);< GLISS 21
SEG(F5); 0 1 0.000 33.667 1.000 100.000
;PRINT(P1);< DUMMY 21
GLISS 5.040 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 22
SEG(F5); 0 1 0.000 30.400 1.000 100.000
;PRINT(P1);< DUMMY 22
GLISS 5.280 0.240 P7 2000.000 F11 F4 D 0.240 F5
;PRINT(P1);< GLISS 23
SEG(F5); 0 1 0.000 27.133 1.000 100.000
;PRINT(P1);< DUMMY 23
GLISS 5.520 0.240 P7 2000.000 F12 F4 C 0.240 F5
;PRINT(P1);< GLISS 24
SEG(F5); 0 1 0.000 23.867 1.000 100.000
;PRINT(P1);< DUMMY 24
GLISS 5.760 0.240 P7 2000.000 F10 F4 D 0.240 F5
;PRINT(P1);< GLISS 25
SEG(F5); 0 1 0.000 20.600 1.000 100.000
;PRINT(P1);< DUMMY 25
GLISS 6.000 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 26
SEG(F5); 0 1 0.000 17.333 1.000 100.000
;PRINT(P1);< DUMMY 26
GLISS 6.240 0.240 P7 2000.000 F11 F4 F 0.240 F5
;PRINT(P1);< GLISS 27
SEG(F5); 0 1 0.000 14.067 1.000 100.000
;PRINT(P1);< DUMMY 27
GLISS 6.480 0.240 P7 2000.000 F12 F4 G 0.240 F5
;PRINT(P1);< GLISS 28
SEG(F5); 0 1 0.000 10.800 1.000 100.000
;PRINT(P1);< DUMMY 28
GLISS 6.720 0.240 P7 2000.000 F10 F4 F 0.240 F5
;PRINT(P1);< GLISS 29
SEG(F5); 0 1 0.000 7.533 1.000 100.000
;PRINT(P1);< DUMMY 29
GLISS 6.960 0.240 P7 2000.000 F11 F4 E 0.240 F5
;PRINT(P1);< GLISS 30
SEG(F5); 0 1 0.000 4.267 1.000 100.000
;PRINT(P1);< DUMMY 30
GLISS 7.200 0.240 P7 2000.000 F11 F4 D 0.240 F5
;PRINT(P1);< GLISS 31
SEG(F5); 0 1 0.000 1.000 1.000 100.000
;PRINT(P1);< DUMMY 31
GLISS 7.440 0.240 P7 2000.000 F12 F4 C 0.240 F5
;PRINT(P1);< GLISS 32
SEG(F5); 0 1 0.000 1.000 1.000 100.000
;PRINT(P1);< DUMMY 32
GLISS 7.680 0.240 P7 2000.000 F1 F4 D 0.240 F5
;PRINT(P1);< GLISS 33
SEG(F5); 0 1 0.000 1.000 0.000 100.000
;PRINT(P1);< DUMMY 33
FINISH; < ZLIDE.DAT